unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Unit1, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    FColParam:TColParam;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

function FuncTestPossPoint(APoint:TColParam):Integer;

implementation

{$R *.dfm}

function FuncTestPossPoint(APoint:TColParam):Integer;
begin
  try
    Form2:=TForm2.Create(nil);
    Form2.FColParam:=APoint;
    Result:=Form2.ShowModal;
  finally
    FreeAndNil(Form2);
  end;

end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  ShowMessage(TPoints(FColParam.BillData).Code);
end;

end.
 